home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / assets / game.dir / 00054_Script_move class < prev    next >
Text File  |  1997-08-08  |  2KB  |  107 lines
  1. -- move class method
  2. -- --------------------------------------------------
  3.  
  4. property moveflag
  5.  
  6. property targetloc
  7. property startloc
  8. property stepvector
  9. property stepcount
  10. property totalsteps
  11.  
  12. property callback
  13.  
  14. property timeelapsed
  15.  
  16. property gear
  17.  
  18. property ancestor
  19.  
  20. -- ==================================================
  21. -- new method
  22. -- --------------------------------------------------
  23. on new me, props
  24.   
  25.   minit me, props
  26.   
  27.   return me
  28.   
  29. end mnew 
  30.  
  31. -- ==================================================
  32. -- minit method
  33. -- --------------------------------------------------
  34. on minit me, props
  35.   
  36.   --  put "in minit move"
  37.   
  38.   set ancestor = new ( script "draw class" , props )
  39.   set gear = 1000
  40.   set totalsteps = 42
  41.   
  42.   --  put "out minit move"
  43.   
  44. end minit
  45.  
  46. -- ==================================================
  47. -- mstartmove method
  48. -- --------------------------------------------------
  49. on mstartmove me, props
  50.   
  51.   --  put "in mstartmove move"
  52.   
  53.   list2object ( props, me )
  54.   
  55.   set moveflag = true
  56.   set totalvector = targetloc - startloc
  57.   set stepvector = totalvector / totalsteps 
  58.   set stepcount = 0
  59.   msetloc me, startloc
  60.   
  61.   --  put "out mstartmove move"
  62.   
  63. end mstartmove 
  64.  
  65. -- ==================================================
  66. -- mfinishmove method
  67. -- --------------------------------------------------
  68. on mfinishmove me
  69.   
  70.   --  put "in mfinishmove move"
  71.   
  72.   msetloc me, targetloc
  73.   mdraw me
  74.   
  75.   set moveflag = false
  76.   mcallback callback
  77.   
  78.   --  put "out mfinishmove move"
  79.   
  80. end mfinishmove
  81.  
  82. -- ==================================================
  83. -- mdotask method
  84. -- --------------------------------------------------
  85. on mdotask me
  86.   
  87.   --  put "in mdotask move", timeelapsed
  88.   
  89.   
  90.   set stepcount = stepcount + 1
  91.   
  92.   if stepcount > totalsteps then 
  93.     
  94.     mfinishmove me
  95.   else
  96.     
  97.     mmove me, stepvector
  98.     mdraw me
  99.     
  100.   end if
  101.   
  102.   --  put "out mdotask move"
  103.   
  104.   
  105. end mdotask
  106.  
  107.